home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / contrib / regexp / ieee.scm < prev    next >
Encoding:
Text File  |  1991-04-02  |  513 b   |  24 lines
  1. ;;;; -*- Scheme -*-
  2. ;;;; $Header: /home/panda/pg/bevan/progs/elk/scm/RCS/ieee.scm,v 1.2 91/04/02 14:28:58 bevan Exp $
  3. ;;;+c
  4. ;;; Definitions of some IEEE Scheme functions missing from ELK
  5. ;;;
  6. ;;; System : ELK
  7. ;;; System Specific Features :-
  8. ;;;   everything, as this is a compatability file !
  9. ;;;-c
  10.  
  11. ;;;+f
  12. ;;; Close the given output port.
  13. ;;;-f
  14. (define (close-output-port port)
  15.   (close-port port))
  16.  
  17. ;;;+f
  18. ;;; Close the given input port.
  19. ;;;-f
  20. (define (close-input-port port)
  21.   (close-port port))
  22.  
  23. (provide 'ieee)
  24.